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III11] 000000 SSSSSSSS UU UU BBBBBBBB PPPPPPPP AAAAAA GGGGGGGG DDDDDDDD 
11111 00 SSSSSSSS UU UU B8BBBBBBB PPPPPPPP AAAAAA GGGGGGGG DDDDDDDD 
II 00 SS UU UU BB BB PP PP AA AA GG DD DD 
II 00 00 SS UU UU BB BB PP PP AA AA GG DD DD 
Il 00 00 SS UU UU BB BB PP PP AA AA GG DD DD 
I! 00 oo SS UU UU BB BB PP PP AA AA GG DD DD 
I] 00 00 SSSSSS UU UU B8BBBBBBB PPPPPPPP AA AA GG DD DD 
I] 00 00 SSSSSS UU UU BBBBBBBB PPPPPPPP AA AA GG DD DD 
I] 00 GO SS UU UU BB BB PP AAAAAAAAAA GG GGGGGG DD DD 
I] 00 00 SS UU UU BB BB PP AAAAAAAAAA GG GGGGGG DD DD 
II 00 00 SS UU UU BB BB PP An AA GG GG DD DD eoee 
II 00 00 SS UU UU BB BB PP AA AA GG GG DD DD eees 
IIIIII 000000 SSSSSSSS UUUUUUUUUU - BBBBBBBB PP AA AA GGGGGG DODDDDDD eeee 
1111 000000 SSSSSSSS UUUUUUUUUU - BBBBBBBB PP aA AA GGGGGG DODDDDDD eeee 
LL III SSSSSSSS 
LL IIIT] SSSSSSSS 
LL I] SS 
LL II SS 
LL II SS 
LL II SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL II SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL H1111 SSSSSSSS 
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Dec Leger tons 
nd Free *" Channel 
General I/ eycepene earch 

irene ate bog cal Device Name 

Tak t Out Cluster-wide Device Lock 
Deallocate Device Cluster-wide 
Release Cluster-wide Device Lock 
Unlock 1/0 Database and Return Status 
Verify 1/0 Channel Number 

Deallocate device on dismount 
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LARA RA RARAAAAAALALALA LALLA LARS EERE LESSEE EASE EEE SEER E EEE SE TERETE EE Eee cae 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


oe 

® 

te 

® 

® 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY GE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. . 
x 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
& 

* 

* 

® 

* 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


-* 
-* 
-* 
:* 
:® 
:* 
-* 
:* 
-* 
-* 
:* 
-* 
:* 
-* 
-* 
-* 
-* 
-* 
:* 
:* 
-* 
tr 


: PARRA AAAAAAAAALALASALALALALAAALLESLELASLESCLASCLASLAESCLESCLASLASLESLESLESCE EEE aS 
; D. N. CUTLER 13-JUN-76 

PAGED 1/0 RELATED SUBROUTINES 

; MODIFIED BY: 

: V03-023 HHO049 Hai Huang 16-Aug-1984 


Define LOCSDALLOC ai “poutine for the file systems 
to deallocate the device on dismount. 


V03-022 RASO303 Ron feheefer 1- = that 
Correct RASO292 to allow 1 or 2 leading ‘'_"'s 
v03-021 ACG0420 Andrew C. Goldstein 20- -Apr-1984 14:03 


Remove extra kernel mode call in IOCSLOCK DEV and 
} CSUNLOCK_DEV; check status in LKSB in LOCK_DEV. 
x logical name Pri checks. 


V03-020 RASO292 aefer ae enhance aes 
Correct crore to gin, for Leading ‘NO_T 
names. The NO_TRAN flag tt ializes the translation 
result block td have the TERMINAL flag set. 


v03-019 KPLO110 Peter Lieberwirth 31-Mar-1984 
Change IOCSSEARCH to allocate a Kernel Request Pocket (KRP) 
to contain $TRNLNM equivalence string because bytes is 
too much to allocate from the kernel stack. 


2. Change IOCSTRANDEVNAM to honor a new I0C$ bitfield that 


OOOOoCoooooooocoo 
COOoooooo 
PUPP VST BBB BB BE ANNI AAI AAI PPONPIMPONPNNNPPN 2 SS OS OS SO 
SOA ALAN SO OD NA UNE WIN O OD NA UNE WIN — SO OD NA UE WWI @ OOD NOAM EWN OOO NOUN Ew 


ooo 
SOCOSCSOSSSOSOSOSOSOOOSOOSOSOSOOSOOSOSOSOSOOSOSOSOSOSOSOSOSOSOSOOOSOOSOOOOO 


SOOOCOSCSOOCOOSOOOOOOSOOOOOOOOOOOOOOSOOOOOSO 
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indicates the caller already translated the logical name so 
there is no need for TRANDEVNAM to do so. 


i:.tr* LNMSC_MAXDEPTH for the maximum logical name recursion 


v03-018 aceoy99 Andrew C. Goldstein, 20-Feb-1984 15:45 
Rewrite of IOCSSEARCHxxx to break out logical name 
translation and dev} ce parsing. chess up media type 

en ng, add handling of ce locks, general code 
eanup, move in device lock and unlock routines 
Noe §DEVALC. Move low Level arse and search code 
to IOSUBNPAG so it can be used by IPC. 


v03-017 ROW0288 Ralph 0. Weber 24-JAN-1984 
Correct stupid bug Rn ROWO266 which made the cure worse than 
the disease. 


V03-016 ROW0266 Ralph 0. Weber 28-DEC-1983 
Fix error branch in’ the convert ASCII to integer routine so 
that routine return address is popped from the stack. 


v03-015 CDdS0001 Christian D. Saether 16-Dec-1983 
Add comments reflecting new interpretation of the 
CCBSE. AMOD field. The F11BXQP stores a negative 
value’ in A access mode field of the firs channel 
pues. eeie. at process greption to reserve it for use 
by the F11BXQP exclusively. It is not actually assigned 
to any specific device. 


pe jejlelojlelejlojolololo) 


DOOOCOCOCOOCOCCOCOOCOOCOOOOOOOOoOoOO 


v03-014 RASO213 Ron aefer 16- Wov=1985 

ogi fy RASO186 te Fo ay 1 pa 2 leading ‘'_"'s. his 

is necessary to deal with programs that do a STRNLOG of 
a device name Cake  sySsine T and get an answer 


= the form ‘ 


v03-013 RASO186 Ron Schaefer 3-Nov-1983 
Convert Soha Yo to use STRNLNM. For compatibility 
a leading "'_"’ is recognized as ‘'SS$_ NOTRAN' ona discarded. 


v03-012 ROW0238 Ralph 0. Weber 11-OCT-1983 
Fix wrong direction” branch in “ROWw0232. 


oupes2 Ralph 0. Weber 4-0CT-1983 
mgd: NE IOCSSEARCHxxx to return UCB of local path to a device 
h a local path and a served path exist. 


MEUM O OONAUE WN (OOO NAU SW CO OONOUS Wn O00 


OO O00 OO 00090969 09 09 09 09 09 09 09 SII NI NSIS NIA OA AAA AAAOOUN 


vO3-011 R 


OOOCOCCoOOOCOOCOOoSooOoOSooSO 


v03-010 R ouges Ralph 0. Weber 23-SEP-1983 
Modify LOCSSEARCHxxx evice name parser and i/0 Gatehoce 
Lookup to support dev ce names containing an a locas? on class 


DUAS:, which 


OOOO OCSOOOOCSOOOSCOSOSOSOSOSOOSOSOSOSOSOSOSOOSOOSOOOSOoOSoOO 


number in place of a_ node name. for example, $1 
means the device °DUAS in allocation class 1. 


ROW0217 Rolph Weber 7-SEP-1983 
Change SEARCHUNIT in IDESSEARCHaxs to also look for devices on 
the secondary DDB cha 


v03-009 


SSOOOOCOOOOOOOOCOOOOSOSOOOOOSOSOOOSOSOOSOSOOOOOOOOOOOOOOOOOOOOOOOOOO 
SOOCSOCSCOOCOCOSOCOOSOOSOOOSOOSSSSSOSOSSOSSOSOSOSOOSOSOSOOOOSOOOOCOOOOOOOOOOOOO 
Bete Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se 


Soooooooooooo 
atatatadtatatatbmiadatatabatadad 


$3 ODO ODOOSOSSCO 


FU" OOONOUS WN Oo 


Soooooooo 


kK 8 
sean = Poa 0 peaen somaurines “TESTI ME PTET Mes 


v03-008 RASO175 Ron Schaefer 28-Jul-1983 
Prevent IOCSSEARCHxxx from cecognizing og 
This is temporary until Ne Stg 4 CHxxx is re-written to 
use STRNLNM rather than $TRNLOG. 

V03-007 DMwW4036 DMWalp 26-May-1983 
Intergate new logical name structures. 

v03-006 KTA3050 mann 16-May-1983 


Kerbey T. A 
Fix ‘off by one’ bug in KTA3044. 


V03-005 KTA3044 Kerbey T. Altmann 21-Mar-1983 
Add support for media type allocation. 


V03-004 KTA3022 Kerbey T. Altmann 29-Dec-1982 
Enhanced KTA3011. 


V03-003 KTA3011 Kerbey T. Altmann 15-Oct-1982 
Fixed bug that prevented node names with prefixed ‘'_"’ 
from being recognized. Allow ‘'S'' in device names. 
Support for SCA node names. 


Vv03-002 ROW0130 Ralph 0. Weber 5-0CT-1982 
Remove IOCSCREATE_UCB whose functionality is replaced by 
routines in module UCBCREDEL. 


V03-001 PHLO100 Peter H. i fonen 01-Jun-1982 
The sequence SCREMBX, SASSIGN with a lower case bogical 
name was broken by upcasing device names in IOCSSEARCHDEV. 
Fix this by trying the TRNLOG with the original string 
and if NOTRAN, try again with upcased string. 


SOoOSCSCSCSSOSCSOSOSOSOSOSOOSOSOSOOOSOSOSOOOOOSOOSOOO 
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Mireety Declarations ety OO ea aF SYS.SRCJIOSUBPAGD.MAR; 1 . (2) 
138 -SBTTL Declarations 
: ; Macro Library calls 
1 e 
154 SACBDEF i; define AST control block 
155 SCCBDEF 3; define CCB offsets 
1 § SCRBDEF 3; define CRB offsets 
1 SDDBDEF ; define DDB offsets 
8 138 SDEVDEF 3; define device characteristics 
0 1 SIOCDEF : define flag bits 
S 199 SIPLDEF 3; define IPL levels 
1 SJIBDEF : define JIB offsets 
0 19¢ SLCKDEF 3; define lock manager symbols 
00 16 SLNMDEF ; define LNM offsets 
b6 164 SLNMSTRDEF ; define LNM block offsets 
0 165 SMSCPDEF 3 define MSCP offsets 
3 166 $PCBDEF ; define PCB offsets 
0 16 SPRDEF ; define processor registers 
000 168 SPRVDEF :; define privilege bits 
0000 19? SPSLDEF ; define processor status fields 
4 170 SSBDEF ; define system block 
000 171 SSSDEF ; define Syston status values 
$44 76 SUCBDEF 3; define UCB offsets 
0000 1 ASSUME IOC$V_PHY EQ 0 ; optimized to BLBx all over 
00000009 176 -PSECT YSEXEPAGED 
Bo5 177 ; 
000 178 ; Local data 
44 179 ; 
000 180 LNM_TBL: 
49 46 24 4D 4E 4C 00000008'010E0000" 0000 181 -ASCID “"LNMSFILE_DEV"’ ; logical name tuble for devices 
56 45 446 SF 45 4C 4 ; 
00000018 ep ig ESCAPE = 27 3 escape character 


m 8 
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-SBTTL Find Free 1/0 Channel 


146 185 
Hane 
14 8 > IOCSFFCHAN = Find Free 1/0 Channel 
1? 139 ; This routine is called to search the I/0 channel table for a free channel. 
1 19¢ > INPUTS: 
Be 88 a 
Sire 196 : OUTPUTS: 
Baie 138 ; RO low bit clear indicates failure to find free 1/0 channel. 
Bale 5 ; RO = SS$_NOIOCHAN = no I/0 channel available. 
G914 8 ; RO Low bit set indicates success with: 
0014 04 : R1 = available channel number. 
Baie 06 : R2 = CCB address for channel in R1 
0014 07 : R3 is preserved across call. 
ari Sop i eps 
014 10 IOCSFFCHAN:: ; find f 1/0 ch l 
00000000'9F (C1 $014 11 ADDL3 a@#CTL$GL_CCBBASE,- oe hth 
50 09 O1A 1 #CCB$B_AMOD,RO ; base and offset to test assignment 
51-10 ce gic 1 MNEGL #CCBSC~LENGTH,R1 > set starting channel index 
52 00000000' 9F 1F 214 MOVZWL a@#CTL$GW_NMIOCH,R2 ; get number of 1/0 channels 
0B 13 «00 § 15 BEQL 3; there are none 
6041 9 0 1 10$: TSTB (RO)CR1J ; channel assigned? 
ere B 1 BEQL : if eql no 
51 8 cs D 18 SUBL #CCBSC_LENGTH,R1 ; calculate next channel index 
F5 5 F 0 9 19 SOBGTR ; any more CCB's to examine? 
50 0184 BF 3¢ 0 ; 0 208: MOVZWL #S$$_NOLOCHAN,RO : indicate failure 
039 ; 
> ae: 33 § 30$ MNEGL R1,R2 3 convert to positive value 
00000000 ' 9F 5 h 6 4 CMPW R2,@#CTLSGW_CHINDX ; check a ainst current hi-water mark 
g F 004 5 BLSSU 408 ; no, just leave 
reees : wed 5: ¢ go 4 $ MOVW R2,a#CTL$GW_CHINDX 3 yes. set new mark 
5 F7 A04 € 4C¢ 40$ MOVAB ~C€B$B_AMODTRO)CR1).R2 ; load R2 with CCB address 
31 E 4 3 MNEGL 1,R1 ; make positive 
0 1 : te) 4 a #S$$_NORMAL ,RO ; indicate success 


Nn 8 
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Lom 
<oO 


ssearge i 


€ 


H = general I/0 database search 


REL 
Dat 
§ -SBTTL General 1/0 Database Search 
Sy 
: : IOCSSEARC 
; IOCSSEARCHDEV = search for specific physical device 
3 : IOCSSEARCHALL = generic search for any device 
rt ; This routine searches the 1/0 database for the specified device, using 
‘ ; 
4 
4 
re 
is 
25 
50 
2) 
38 
54 
2? 
39 
58 
59 
60 
2 
63 
64 
65 
66 
67 
68 
$9 
0 
4 
48 
74 
75 


cCcl 
cCcl 
cil 
ctl 
ctl 
cil 
ay 


~~ OOon 


; the specified search rules. pepending on the search, a lock may or may 
3 not be taken out on the device when it is found. 


poe of descriptor of device / logical name string 
ags 

aderece to store lock value block 

O database mutex held, IPL 2 


$_NORMAL - device found 
pecviy - name string is not readable 


ONLOCAL = nonlocal device 
OOMANYLNAM = max. logical name recursion exceeded 


“IVLOGNAM = invalid logical name (e.g., too long) 
* Vv 


VDEVNAM = invalid device name string 


$ 
$ 
$_I 
$1 
S_NOSUCHDEV = device not found 
NODEVAVL = device exists but not available according to rules 
DEVALLOC = device allocated to other user 

NOPRIV - failed device protection 

TEMPLATEDEV = can't allocate template device 

a al - device already mounted 


EVOFFLINE = device marked offline 


$ 
$ 
$ 
$ 
$ 
$ 
B 
s 


tem block 


$ 
S$ 
$ 
$ 
S 
S 
$ 
S 
S$ 
S$ 
S$ 
S 
S$ 
U 
s 
R11 preserved 


$s 
$ 
$s 
$s 
S 
S 
$s 
$s 
S 
$s 
S 
S 
$s 
C 
Dd 


Note: If failure, R1 - R3 point to the last structures looked at. 
R2 and R3 are input only to IOCSSEARCH. 

IOCSSEARCHDEV: Re . jocen put ! IOCSM_ANY 

IOCSSEARCHALL: Re 


gocen jal ! ITOCSM_LOCAL 


ST ab Ab Ab db dab db db db db-db did dhb-hb-dbdhb-dhb-dd-db-db-hb Abb Ab Ab Ab Ab Ab Ab db Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab hb db dl 


fmnrn — 090909090900 09 69 Od 09 00 Cd 09 Od 09 Od 0D Od GD OD G9 OD C9 OD Cd OD GD GD CD CD CD GD CD CD CD CD CD COCO CODCOD CDCOCOODODODODODCRODODODOD +e 


IOCSSEARCHDEV: : : search for specific device 
poveet $]QCOR Pur: 1OCSR_AleY ARE 3 physical device name, no checks 


? 
i 

75 

, c= 

§ -ENABLE LSB 
4 

5 

; 

8 


IOCSSEARCHALL: : : generic search for any device 
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00-000 General 1/0 Database Search g- SEE} 38 Be eRe i Hoye" eR SRCJIOSUBPAGD.MAR; 1 . (4) 
52 48 9A 5 9 MOVZBL #JOCSM_ANY! IOCSM_LOCAL, R2 ; ; no activity checks, local onl 
sf é3 $9 108: CURLEY RA S ho value block . 
64 % IOCSSEARCH:: eneral purpose 1/0 search 
OFEO 8F 6 39 PUSHR #"HCRS .R6R7RB_RG.RIO, Rir3 ads 
SA 099000 O'GF 9E 8 29% MOVAB GrCTLBGL KR RPFL,R10- ; get pointer to KRP lookaside List 
4 BA F 8 95 REMQUE 3; allocate a KRP 
3 B 38 BVS zee ; bugcheck if =A a to use 
7E 3 7 9 MOVL R9,=(SP) ; save KRP point 
SA § 7 38 MOVa R2,R ; move flags and. val bloc 
1 78 9 BSBB 1O€$TRANDEVNAM : translate device / ooteel name 
09 50 4 70 ? BLBC Rg ¢ : exit if error 
FF7D° 8 5 BSBW LOCSPARSDEVNAM ; parse device name 
03 39 4 $ BLBC R : exit if oly ol 
FF77" 30 0086 BSBW Lo SEARCHINT ; and do the se 
51 ; D 8 9 4 20$: mMOva oR ; move UCB and 5D8 address 
23 DO 008C 5 MOVL : and system block 
9 BE 00 00 F : MOVL  (SP)+,R9 : Festore KRP addre 
A GF MOVA G*CTLSGL_KRPFL,R ; get address o KRP lLookaside List 
5A 00000000' 9E 009 B G*cTL$ 10 f ide Li 
046 BA 69 OF 009 8 INSQUE (R9),@ ) ; deallocate the KRP to its list 
OFEO 8F BA 09D 09 POPR #°M<R5,R6,R7,RB,RI,R10,R11> 
00A 11 
$045 \¢ 30$: CHECK KRPEMPTY,FATAL 
00A6 1 OO TSABLE LSB 


1OSUBPAGD - PAG 
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-SBTTL Translate Logical Device Name 


+ 


IOCSTRANDEVNAM = translate logical device name 


This routine applies iterative togtcat name translation to the specified 
device name. In addition, the string is upcased, if translated. 


Input buffer should be large enough to contain a logical name Seeremtones 
; string and 5 bytes of logical name block overhead. The overhead is 

; required because this routine calls an internal logical name routine to 
do the translation instead of the slower STRNLNM. The additional 5 bytes 
are lnm processing overhead, specifically a LNMX. 


INPUTS: 
R1 = address of logical name string descriptor. 


*eeee this string has not yet been probed, 
teete but the descriptor has been. 


DOOOCOCOCOCOCCOOOOCOCOOCOOCSoOOoOO -—m 
oOo 
>>Prr>,r 
AAXO 


CoOoCoooo 


R2 = I10C$ flags, specifically: 
SnO_TR ; 


F 
7 
4 
‘ 
0 
4 
BeAg 3} 10c$v_ ANS = if set, caller already translated logical name 
00A6 39 R9 = buffer in which to store translated device name 
BRAe ret (Length is assumed to be <LNMSC_NAMLENGTH + LNMXS$T_XLATION+1>) 
Ae 4g OUTPUTS: 
0A6 44 RO = SS$_NORMAL = successful translation 
OA6 45 = SS$_ACCVIO = name string is not readable 
00A6 46 = SSS$_NONLOCAL = nonlocal device 
0A6 47 = SSS_IVLOGNAM = invalid logical name (e.g., too long) 
OA6 48 = $S$_TOOMANYLNAM - Logical name recursion depth exceeded 
0A6 49 R8 = Length of translated string 
0A6 50 R9 = address of translated string 
00A6 51 Note: translated string may not begin at the beginning of the 
00A6 26 output buffer, ie R9 may point into the input buffer, ie 
0A6 5 R9 not preserved 
OA6 54 
OA6 55 3 
Ooae $57 
A6é 28 ; case_blind flag (r5 input) for Lnm$search_one, concatenate user mode for 
One 3003 
00000103 OG 61 M_CASE_BLIND = *x0103 
é§ -ENABLE LSB 
A 65 IOCSTRANDEVNAM: : 
OOFC 8F ee A 06 PUSHR #*M<R2.R3,R4,R5,R6,R7> ; save working registers 
58 1 § AA 6 MOVZWL (R1),RB : get Length of device/logical name 
1 AD rt: BEQ : 1f eql invalid name 
OOFF 8F } AF 8 CMPW R8,#LNMSC_NAMLENGTH ; name too long? 
A 4 0 BGTRU é $ : if gtru yes 
50 04 Al 00 7 MOVL (R1),RO 3 get address of device/logical name 


9 
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BA te ASSUME LNMS$C pam EneTe LE 512 ; ok to use single probe 
BA ? IFNORD RB,(RO),1 ; probe jogicat name buffer 
9 7¢ 00C 74 CLRQ. ss (R9) ; and init output buffer Lnmx 
04 52 9 €1 C 75 BBC #10C$V_NO_TRANS,R2,1$ ; branch if RMS did not do the $TRNLNM 
1 €2 C 4 BBSS #LNMX$9_ TERMINAL, = ; set terminal flag so no translations 
00 4 C 7 LNMX$B_FLAGS(R9) ,1$ ; are actually done 
60, :3 28 +A 4 1$ MOVC3 er gantt mw ariometstnes ; copy logical name into buffer 
54 booepgve' dO CF 0 MOVL arc tL set PCB,R4 + set up PCB address for search_one 
9A 4 B08 1 MOVL a C_MAXDEPTH,R7 ; maximum number of translations 
56 9 OD Dd § MOVL R9,R : rg is output Lnmx from search_one 
05 4 9E 44 bs MOVAB teats reach et et r9 is input buffer for search_one 
H 11 Bae 5 BRB 50$ ; previous (non-existent) translation 
50 O *f Bae e? 10$: MOVZWL 4 a catedalataiaaas ; name buffer not readable 
50 0154 or 2 er 89 Os: payee. 7 Sag~t VLOSHAR Re ; invalid logical name 
OOK 391; 
OEE 35 : Try to translate a logical name, using a fast, internal interface. 
pee 82 3; Note woes ynescenct NE only ag translations for equivalence 
; names for index 0, IE, no searc sts. 
OOEE 95 ; 
OOEE 96 ; RB = size of name string to translate 
Bore af ; RY = address of name string to translate 
50 58 7D OOEE 99 30S: OV R8,RO ; descriptor of logical name 
2¢ FFOB CF 3¢ Berg 400 MOVZWL LNM_TBL,R2 : get table name length 
ba 9g 
5 FFOA CF bP OF6 401 MOVL LNM_TBL+4,R3 3; table name address 
55 0103 8F C OOFB $06 MOVZWL #M_CASE_BLIND,RS ; indicate case_blind, user mode 
00000000'EF 16 190 40 JSB LNASSEARCH_ONE > translate the logical name 
08 50 €8 0106 404 BLBS 3; successful translation 
50 01BC er 8] 109 405 CHPW #S$8 NOLOGNAM,RO : if failed to translate logical name 
3 qu abnorma 
01 ig o10 407 BBCS #ULNMX$V_TERMINAL,=- : a more translations 
04 66 11 408 LNMX$B_FLAGS(R6) ,40$ ; 
58 04 AG 9A 114 409 35$:  MOVZBL LNMXS$T-XLATION(R6),R8 =: size of translated string 
59 05 A6 9E giie rit 40$: MOVAB <LNMXST_XLATION+1>(R6) ,RO ; and address of equivalence string 
011C 412; 
O11C 213 ; RB = size of (logical) device name string 
ie ret ; RY = address of (logical) device name string 
69 1B 91 OTIC o18 Sos: CMPB GESCAPE (RO) ; RMS IFI on the front? 
Se 11F = 41 BNEQ 70$ ; branch if not 
59 es & 121 213 ADDL #4,R9 ; skip around the PPF data 
58 04 C¢ 124) 41 SUBL #4,R8 ; and adjust size of device string 
BE 1 } f ? Y 60$: BLEQ 20$ : branch if bad device name 
129 422; 
129 4 : ; Take an underscore or two off the front. If any are removed, then 
129 424 ; the device that follows must not be translated any further. Note 
: 2 ? 53 shot phe eeu’ e after the RMS process permanent file data may be 
; a logical device name. 
129 4 5 3 . 
129 428 


wh, 
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69 SF 8F 91 0129 429 708: CMPB #*A' *, (RY) ; leading underscore? 
1 1 120 4 9 BNEQ 80$ ; branch if not 
2 D 120F 64 INCL Q : strip it off 
Dd 1 4 § DECL R ; and adjust the count 
F 13 1 4 BLEQ 60$ ; branch if bad device name 
0 E 1 434 BBSS #LNMXSV_TERMINAL,=- ; flag no more translations 
0 66 1 435 LNMX$B_FLAGS(R6) ,75$ 
69 F BF 91 0139 4 § 75$: CMPB #*A' TS (RI) ; try for a second ‘'_"’ 
§ 1 130 4 BNEQ 80$ ; branch if not 
D 13F 6. 438 INCL Ro ; strip it off 
28 D 14 439 DECL R ; and adjust the count 
E 15 1 ret BLEQ 60$ ; branch if bad device name 
14 442 ; 
Bie 108 ; At this point R8&,R9 describe a string which is either the initial 
145 444 ; string passed to this routine or a translation of it. A check will 
Bide 445 ; now be made to see if this string contains a ‘'::'' and is thus a 
145 rt ; nodename. If not and there were leading “'|"’, then it is a physical 
0145 447 ; device name and the translations will be skipped. If no leading ‘'_" 
0145 448 ; then the string up to but not ihe huging the '':"' (if prepent? will 
0145 449 ; be a candidate for translation. This translation will be attempted 
0145 450; if the result of a previous translation was not SS$_NOTRAN and if 
0145 451 ; the iteration counter has not expired. 
0145 $36 ; 
0145 45 
69 58 3A 3A 0145 454 80S: LOCC #*A':",RB, (RI) ; search string for a colon 
OA 13 0149 455 BEQL 90$ : if egl colon not found 
50 D7? QO148 456 DECL 3; possibly a node name? 
96 13 014D 457 BEQL 90$ : if eql no 
01 Al A 91 QO16F 458 CMPB #*A':",1(R1) 3; next character a colon? 
w6 OU Biae rf? BEQL 130$ :; if eql yes 
as cs} HW USS 0153 461 90$: SUBL3 R9,R1,R8 ; size of string up to colon 
01 £0 0159 46¢ BBS #UNMX$V_ TERMINAL ,- : last translation? 
08 66 015SB 846 LNMX$B_FLAGS(R6),110$ ; branch if yes, don't do another 
02 57 F4 0150 464 SOBGEQ R7,1008 ; loop if iteration count not exhausted 
0160 465 ; n+1 iterations for n translations 
0B 11 0160 466 BRB 125% ; skip over loop 
FF89 = 351 1¢ re 14 100$:  BRW 30$ ; branch to top of loop 
50 4 DO 0165 ies 110$: MOVL #SS$_NORMAL ,RO 3; indicate success 
OOFC 8F a 168 470 120$:  POPR #°M<R2,R3,R4,R5,R6,R7> : restore registers 
fo aE ae 
50 0374 8F 3C 016D 238 125$: MOVZWL #SS$_TOOMANYLNAM,RO ; too many equivalence strings defined 
F4 811 «0172 «474 BRB 1208 
1746 «6475; 
\ $78 3 Nonlocal device 
50 O8FO BF 3C 0174 478 130$:  MOVZWL #$S$_NONLOCAL ,RO ; set nonlocal device 
ED 11 0179 47 BRB 1208 
178 ttt 
178 481 DISABLE LSB 
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Ri = buffer address for device name. 
Prefix system code to resource name. 
Save address of buffer. 

RO = buffer length for device name. 


MOVL 
PUSHL wh’ sys" 
MO SP_R 


51 SE 
24535953 i DD 
VL 
1 MOVL  4#16,R0 


§ MOVL  R4, RB Save PCB address. 


Cuno OO rororornrvnnw 


Oo 


54 
4 01 OD MOVL #1,R4 Signal we want alloc_class+device name. 
0000000" F 16 JSB 1OCSCVT_DEVNAM Get back device name. 
4 3 4 R3,R4 Restore PCB address. 
7c 50~—C'E BLBC RO,60$ exit on error 
51 04 C0 ADDL #4,R1 Add space for SYS$ code name to 


returned length of device name string. 


Now attempt to take out a lock on the device's resource name. 
At this point, the registers contain: 
R1 - length of resource name 


178 : ; -SBTTL Take Out Cluster-wide Device Lock 
ioe tbe i 
17s ? § ; IOCSLOCK_DEV 
178 4 § 3; FUNCTIONAL DESCRIPTION 
17B 490; etermine the device's allocation name and take out a cluster-wide 
178 $3) : lock on that name. 
178 198 ; INPUTS: 
17B «864494 ; RO - lock mode for cluster-wide lock (e.g. LCKSK_EXMODE) 
17B «4495; R1 - address of a 16-byte buffer to be used as lock value block, 
178 $36 : if the contents of the value block are to be returned. 
178 497; If R1 = zero no value block is used. 
178 498; RG - PCB address 
\7e $38 s R5 - UCB address 
0178 264 3 IMPLICIT INPUTS: 
0178 288 3 IPL = IPL$_ASTDEL 
bce 304 3 Process is holding I/0 data base mutex 
Bice 5 ; OUTPUTS: 
178 506; RO - LBS means successful Lock. 
8158 44 3 R1 - if RO signals success, R1 will contain the lock id. 
3178 09 ; IMPLICIT OUTPUTS: 
178 10 ; The lock id is stored in UCBSL_LOCKID. 
0178 11; If RO signals success and the Tock value block data was requested, 
0178 \¢ 3 it is returned in the user's buffer. 
178 13 ; 
ie a 
178 1 IOCSLOCK_DEV:: 
O1CC 8F 88 178 @} PUSHR #*M<R2,R3,R6,R7,R8B> ; Save some registers. 
57 50 D 4 + mova RO,R7 ; Save lock mode and val block addr 
ig 0 ; We must construct a resource name to use when Loch ine the device. Allocate 
1 1 ; a buffer to hold the name on the stack, then use IOCSCVT_DEVNAM to 
: ¢ 3; construct the resource name. 
5E FO AE . ! 4 MOVAL <-16(SP),SP Reserve space for device name. 
1 
D 1 
D 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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Take Out Cluster-wide Device Lock SEP- SYS.SRCJIOSUBPAGD.MAR; 1 (6) 
1AA 3 R2 - address of buffer containing resource name 
50 0000005D 8F 00 MOVL #<LCKSM_CVTSYS- ; indicate system-owned lock, 
'LCKSM_NOQUEUE- ; return success/failure immediately, 
'LCKSM_SYNCSTS= ; return success synchronously 
'LCKSM_SYSTEM- 3; system lock space 
'LCKSM_VALBLK>,RO ; ind cere value block present, 
7E 4s CLRQ -(SP) ; initialize lock value block 
7 CLRQ (SP) 
5 D TSTL 8 ; see if value block supplied 
0 1 BEQL 10$ 3; branch if none 
6— 6 7D MOVQ (R8) yt 3 set up correct value block 
08 AE OBA 7D mMOVQ 8(RBS ,B(SP) ; just n case we're converting down 
20 A Dd 108: PUSHL ey eenenenenne ; Get current lock, if any 
1 BEQL $ 3; branch if none 
50 2. BISL #LCKSM_CONVERT,RO ; else make this a conversion 
—E D4 208: CLRL -(SP) ; rest of LKSB 
> ie : 0 MOVL SP,R3 ; Save address of lock status block. 
7E 51 D MOVQ R1,-(SP) ; Device name string descriptor 


We build the a" List and call the system lock mopeger subroutines 
directly to avoid the system service dispatcher. This permits us to 
retain the 1/0 database mutex during the lock manager call. 


OB QOOOOOCOO MH MAMMMMMNOGVOIVOVTVVTCVVVTCVTCVVFMOOOCoCwWwWwwwawwIT0N YS} 


WAR HD VIMO DD PS FS VW O NYUMIMNO OMVMOM EO b NU STD OO FO ON SS SD 


PALA 9S ODA NE WIN SO OD NAN EAN S OD NAUNE WN OS OO NAME WWI OOO NOUS WO 
wi 


WOO OOO 00000 09.09 0909 09 00 I INN ND DD DDD DDD. ITT BB EE 


POPOPOPIPOPOPOPIPOPIPIPOPONNDO 2 9 = 9 I 


0 
ee 0 CLRQ -(SP) 3 zero reserved arg & acmode 
rs CLRQ -(SP) 3; zero blkast & astprm 
; Se 8 5 LRQ -(SP) 3; zero astadr & parid 
18 A oF 5 PUSHAB 24(SP) 3; resnam 
5 DD USH 8 :; flags 
5 DD PUSHL R 3 ks 
o DD PUSHL R : lLkmode 
E D4 CLRL -(SP) 3 efn 
00000000‘ EF Fe CALLS #11,SYSSENQ 
0B 5 5 5 BLBC = RO, $08 ; Branch if lock failed. 
50 $ C 5 MOVZWL (R$) ,RO i get status from ks 
05 50 «9 5 BLBC RO, 308 : Branch if lock failed. 
50 4 ‘ 35$ peace #S$8_NORMAL .RO ; Change possible SS$_SYNCH to SS$_NORMAL. 
O9FO 8F 50 Bi 30$ CMPW R #SS$_VALNOTVALID ; check for value block not valid 
F413 BEQL 35$ ; ignore this error 
0988 8F 50 e) CMPW rr #SS$_NOTQUEUED ; see if lock held elsewhere 
g? 2 BNEQ 408 ; some other error } 
50 0840 8F 3C MOVZWL #SS$_DEVALLOC,RO ; convert to ‘‘device allocated’ 
; Store user outputs. 
58 if dos: TSTL 8 ; Did user request value block? 
09 1 BEQL 3 $ ; No: skip store of value block. 
6 98 A 7D MOVa {n3) (R8) : First quadword into user's buffer. 
08 AB «610 a3 =«=7D MOVQ =: 16 (R35 ,8 (RB) > Second quadword into user's buffer. 
51 O4A 00 50$ MOVL 4(R3),R1 : Return lock id in Ri. 
20a5 51 OD MOVL  R1,UCB$L_LOCKID(RS) : Also save it in the UCB. 
3; Clean off stack. 
ze 4 AE ODE MOVAL 36 ($0) + $B ; Pop lock status and value block. 
E 4 AE ODE 60$: MOVAL (SP) ,SP : Pop device name buffer off stack. 


sgeasg fA MERAEMER RINE En CAEEIBEE URETHANE May US| LE 


O1ce BF BA 0227 70S:  POPR «= A*MCR2,R3,R6,R7,RB> _; he regi 
BS 8356 886 RSB i restore previous PSL” 
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9 -SBTTL Deallocate Device Cluster-wide 


— 


IOCSDALLOC_DEV 
FUNCTIONAL DESCRIPTION: 


Deallocate a device. If the device is available cluster-wide, also 
dequeue the lock on that device. 


Pete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


C 
: 
E 08 
C 4 
: 5 
E 809 
. @ 3 
tam 
C 3 INPUTS: 
C 1 RG Address of PCB 
: ol? RS Address of UCB 
C gi IMPLICIT INPUT eC 
a 218 IPL IPL$_ASTDEL 
¢ af Brececs hotds 1/0 data base mutex 
C 619 ; OUTPUTS: 
C 620 RO SS$_N - Device deallocated. 
0 : ° 1 SS$=-D DEVNOTALLOC - Device wasn't allocated. 
: BE 
0 C 625 IOCSDALLOC_DEV:: 
50 0858 BF 3C . «4 § MOUZWL #SS$_DEVNOTALLOC,RO ; Assume device not allocated. 
1D 38 AS) «(617-”—CO#SS ! ° 4 BBCe #DEVSV_ALL,UCBSL_DEVCHAR(RS) ,40$ 
0236 629 : Clear allocation fields from local UCB. The owner PID is cleared 
8 ? ° 9 : if the device is shareable or if this is the last reference. 
03 38 AS 19 E1 6 6 : , BBC #DEVSV_SHR,UCBSL_DEVCHAR(RS) ,10$ 
2C AS D4 B 6 CLRL UCBSL_PID(R5) ; Clear out owner field. 
C AS” sB7 E 634 10$: DECW CBSW_ REF CCRS) ; Decrement refcount 
12 41 635 BNEQ 0$ ; erence if channels still assigned 
8 43. 6 § CLRL UCBSL meh Sai ; ot ear out owner field. 
FoR 0 46 6 BSBW 1SCSLRS! go, ff tinal device cleanup 
02 3c AS 600) «CET «(0249 6 8 BBC #OEVSV stron UCBSL _DEVCHARS(R ),3 
4E 6 : Bra ay if strictly a local device. 
04 10 4 640 gps: BSBB IOCSUNLOCK_DEV + Reeusee the cluster-wide lock 
50 ~©01 3 30 ot) igs: 1 #SS$_NORMAL ,RO : Signal normal successful completion. 
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rt: -SBTTL Release Cluster-wide Device Lock 


re 
NO 


4 
4 
2 3+ 
2 is 3 IOCSUNLOCK_DEV 
4 3; FUNCTIONAL DESCRIPTION: 
4 3 Dequeve the cluster-wide lock as sec tee for by the UCB's state. 
4 $ If it’s still allocated we do nothing. If there are still 
2 i ; channels assigned, we just demote the lock to CR. 
4 5 ; INPUTS: 
7 ? § 3 R5 = address of UCB 
4 228 3; IMPLICIT INPUTS: 
4 659; UCBSL _LOCKID(RS) contains the ID of the lock to dequeue. 
34 269 3 ait is at IPL$_ASTDEL, and holds the 1/0 database mutex. 
4 006 ; OUTPUTS: 
54 663; RO - status of call to $DEQ. 
2 664 ; 
7 PE 
54 $e IOCSUNLOCK_DEV:: 
50 01 4 54 668 MOTL #SS$_NORMAL ,RO ; Assume success, 
2c AS) «(DS (0257 669 TSTL CBSC_PID(R5) : see if it's stilt allocated 
| 5A 6 9 BNEQ $ ; branch if yes 
51 20A5 0D 5 67 MOVL BSL_LOCKID(RS),R1 ; Lock present for this device? 
18 1 6 O76 BEQL $ ; Branch if no lock for this device. 
7E ; 7D 6 67 MOVQ RO,-(SP) 3; build Lksb on stack 
: 6 674 CLRQ -(SP) 3; zero flags & acmode 
rf D4 67 675 CLRL -(SP) 3; zero value block 
5C A B5 69 676 TSTW Ui sss REPEC CRS? : check reference count 
WY bs 6C of on + ays 3 tener eere- must convert to CR 
O0000000'EF 04 FB i rt CALLS #4,SYSSDEQ 
20 A5 D4 027 680 CLRL UCBSL _LOCKID(RS) ; Clear the Lock id field. 
SE 08 ‘0 7A 681 198 ADDL #8,SP 3; clean the stack 
0 43 ? § 208 RSB 
7E 684 ; To here if the UCB still has channels assigned. We convert the lock 
43 e 5 : down to CR. Note that 3 null arguments are already on the stack. 
7E C 7 6 5 $08: CLRQ (SP) 3; zero esters & astadr 
7E C 688 CLRQ -(SP) 3 zerg parid & resnam 
QOOOO04E BF OD 689 PUSHL #<LCKSM_CVTSYS- : indicate system-owned loc 
690 'LCKSM_NOQUEUE- 3 return success/failure et FI 
691 'LCKSM_SYNCSTS- 3 return success synchronously 
$36 'LCKSM_CONVERT> 3 conversion 
20 AE OF 9 PUSHAB 3 3 Lksb 
ol DD 694 PUSHL #LCKSK_CRMODE ; Lkmode 
00000000'EF OB FB OSBr 89% Certs ait SYSSENG dic 
98 1 6 $99 BRB 10$ 
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99 -SBTTL Unlock 1/0 Database and Return Status 


zo 
; IOCSUNLOCK = unlock I/0 data base and return status 


3; This routine is jumped to at the end of an I/0 related system service to 
; unlock the 1/0 data base, set the current processor priority to zero, 


0 
MOVL  CTLS$GL_PCB,R4 
BSBW  §§ SCHSIOONLOCK 


(SP)+,RO 


50 

54 venaeaes * get PCB address 
FDSC* unlock 1/0 data base 
allow all interrupts 


50 «BE retrieve final service status value 


FPP POOOOOOOOOOOOOOOOOOOOOO 


Pne—>y 


MMI SS Ss SS SS BQO OOOO 


FAN" O OODNA UNE WN O OD NOU EW" O 


if ; and to return status to the change mode dispatcher. 

f : INPUTS: 

f : RO = final system service status value. 

f : OUTPUTS: 

7 : The 1/0 data base is unlocked, the current processor priority is set 

4 3 to zero, and a return to the change mode dispatcher is executed. 

7 ° 

718 IOCSUNLOCK:: unlock 1/0 data base and return status 
f PUSHL save final system service status value 
7 

7 

7 

7 


OOOCOOCOC°oO 
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4 : 7 -SBTTL Verify 1/0 Channel Number 
AB 959 
- 9 : IOCSVERIFYCHAN = verify 1/0 channel number 
AB § : This routine is called to verity and translate an I/0 channel number to 
AB 735 ; a CCB address. The channel is checked for accessibility by the previous 
~ 4 : 3 access mode. 
AB f : ; INPUTS: 
AB f § ; RO = 1/0 channel number in low order word 
AB £40 : OUTPUTS: 
. oe) : RO Low bit clear indicates failure to verify. 
AB 744; RO = SS$_IVCHAN = invalid channel number. 
O2AB 8745 ; RO = SS$_NOPRIV = no or iyi lege to access channel. 
8 n os § R1 = address of CCB if RO = SS$_NOPRIV 
6 AB 748 : RO low bit set indicates verify success with: 
AB 750: R1 = address of CCB. 
AB 751; R2 = channel index. 
O5an 8g 
O2AB 754 IOCSVERIFYCHAN:: ; verify I/0 channel number 
50 FFFFOOOF 8F CA 0 AB 755 BICL  #<*XFFFFOOO0!<CCBSC_LENGTH-1>>,RO ; clear extraneous bits 
Rea: B £38 BEQL 1 : if eql invalid channel 
00000000 * 9F 39 H a 3 He FR BOCTLSGU_CHINDE 3 begat channel number? 
3 ru no 
-_— 2 CE BD Fe MNEGL RO,R2 3 suntert to channel index 
51 Q0000000'FFS 9E 3 760 MOVAB acfLSGL_cCBBASECR2I.R1 ; get address of corresponding CCB 
5 oc C 761 MOVPSL R : roo current PSL 
S$} .6SsS CUCU F CA foe EXTZV erst Sv PRVMOD ,APSLS$S_PRVMOD,R5.R35 ; extract previous mode field 
50 g ic CF 676 MOVZWL ass NOPRIV,RO 3; assume caller does not have privilege 
09 Al 3 1 D2 764 CMPB R3,CCB$B_AMOD(R1) ; caller have privilege to access channel? 
09 «18 £0? BGEQ 208 : if geq no - this must be a signed test 
D 59 : Note that the rivilege test comparing caller's mode to the access mode 
D 768 ; field of the channel must be a signed comparison. The F11BXQP reserves 
D 6 3 a channel for use by ‘tsett by Beruel ly locating a free channel (using 
D 770 ; IOCSFFCHAN) and then stor ng -1 in the access mode field, when the channel 
D8 771: is not being act vely used by the XQP for logical 1/0. fhis effectively 
D ue ; blocks anything, inc using kernel mode rundown, or any other kernel mode 
D 773 ; code, from messing wi ; e channel. Of course, when the XQP wants to 
D 774 ; use the channel itself, it modifies the CCB$B_AMOD and CCBSL_UCB fields 
; re 3 to look Like a normal kernel mode channel to fhe device of ifs choice. 
D8 777° 
05 50 90 3 D ore BBCS #0,R0,208 3; indicate success 
50 013 8F 5¢ De 77 108: MOVZWL #SS$_IVCHAN.RO > set invalid channel 
e) £e0 20$: RSB 3 
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4 3 od -SBTTL Deallocate device on dismount 
; 1OCSDALLOC_DMT 
t FUNCTIONAL DESCRIPTION: 


DONA 


This routine deallocates the device if phe device is marked 
deallocate on dismount’, or if the device owner has gone away. 
This routine is called by the file ayetens | CHECK _DISMOUNT 

OUNT when dismounting a foreign volume. 


; CALLING SEQUENCE: 
JSB IOCSDALLOC_DMT 


; INPUT: 


R4 = address of the process PCB 
RS = device UCB address 


IPL = IPL$_ASTDEL 
Process holds 1/0 database mutex 


ROUTINE VALUE: 


RO = SS$_NORMAL = normal successful completion, 
device deallocated when appropriate 
S$S$_DEVNOTALLOC - device wasn't allocated 


SIDE EFFECTS: 


: IMPLICIT INPUT: 
: R1, R3 destroyed. 
j 


OCSDALLOC_DMT:: 
50 0858 8F 3C MOUZWL #SS$_DEVNOTALLOC,RO 3; Assume device not allocated. 
1€ 38 AS 17 ~«€1 #DEVSV_ALL, - : If device not allocated, 
: UCBSL_BEVCHAR(R5S), 20$ ; return to caller. 
50 01 3C C MOVZWL #SS$_NORMAL,RO 3; Assume success. 
1364 AS OA €4 F BBSC #UCBSV_DEADMO, - 3; Check for deallocate on dismount 
; UCBSW_STS(R5), 10$ ; branch if yes. 

51 2c AS 45 4 MOVZWL UCBSL_PID(RS),R1 3; Pick up device owner's PID. 
QO000000'FF41 OD MOVL aL“SCASGL pepeecents.R1 ; Get device owner's PCB address. 
60 Al 2C AS 01 CMPL UCBSL_PIDTRS), - 3; Has the device owner gone away ? 

EheeeP EO Cat) 3 
03 «13 BEQL 20 : If eql no, return to caller. 
FF22 30 7 108: BSBW IOCSDALLOC_DEV ; else complete the deallocation now. 
A 20$: RSB 


0090009090909 09 0009 09 Gd G9 00 Cd C9 Cd 0D CD OD OD OD CD CD CD 09 CD C9 CD 09 CD 09 0D 09 0D 09 SI IMINO NINIS 


WAAWAAUIRIRIRININMNNNN 3 3 2OOODOCOOCOOCO OO 0000000 


AEA 9 OD NOAU EWN 9 OO NAU EWN 2 O OD NOU EWN 0 ONO WO 


Bee 8 MMMM MMMMMMMMmMmMmMmmMmmm«m«m«m«mmn«mn«m»m@mn«m«mr@mn¢m«mrn«nn«rn«nn 


SoOGOOOCOCOCOOOCOCOOOOCOOCOOOOOCOOOSCOCOOOOCOOOOOCoOO 


IOSUBPAGD 
Symbol table 


BUGS_KRPEMPTY 
cc 


CTLS$GL_ 
CTLSGL_PCB 
CTLSGW_CHINDX 
CTL$GW_NMIOCH 


ESC 
1OCSCVT_DEVNAM 
1OCSDALCOC_DEV 
1OCSDALLOC "DMT 
LOC SF F CHAN 
IOCSLAST_CHAN 
1OCSLOCK-DEV 
1OCSM_ANY 
1OC$M_LOCAL 


x 
LNMX$T~XLATION 
LNMX$V~ TERMINAL 


L 
M_CASE BLIND 
Pasi PIO 


RReeeRee 


00000010 


RReeeeee 
Reeeeeee 
rerekenre 
RRARREREE 
gears 


00000000 
00000018 
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IOSUBPAGD 
Psect synopsis 


Psect synopsis ! 


' 
+ eee cenee weer ceeee$ 


PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 ( | 0¢ 0.) NOPIC USR CON ABS LCL WN 
S$ SON eho ( -) 1 ¢ 1.) NOPIC USR CON ABS LCL NOSH 

YSEXEPAGED 00000308 (¢ 779.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR 
$e cere ees aoae oor + 
: Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 00:00:0 96 $8 00:00. 

Command processing 115 00:00:00.56 0:00:0 9 

Pass 474 00:00:17.80 0:00:52. 

Symbol table sort 0 00:00: ¢°53 0:00:1 8° 

Pass 159 00:00:03.73 0:00:19.54 

Symbol table output 10 Bo BR: 8.19 0:00:00.53 

Psect synopsis output 00:00:00.0 00:00:00.57 

Cross-reference output i Sat SS Bp to 88-20 

Assembler run totals 79 00:00:25.28 0:01:27.83 


The working set Limit was 1800 pages. 

104438 bytes (204 pages) of virtual memory were used to buffer the intermediate code. 

There were 110 pages of symbol table space allocated to hold 1951 non-local and 44 local symbols. 
835 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

30 pages of virtual memory were used to define 29 macros. 


ere err meen eee eee een ee ence eee + 


+ 
: Macro Library statistics ! 


we ten ete Be Ce Oe me BOS a 


Macro Library name Macros defined 


Stitt § SYS.OBJJLIB.MLB; 1 15 
$255$DUA28: CSYSLIBISTARLET.MLB;2 11 
TOTALS (all libraries) 26 


2078 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$: IOSUBPAGD/OBJ=0BJ$: IOSUBPAGD MSRC$: IOSUBPAGD/UPDATE=(ENH$: IOSUBPAGD) +EXECML$/LIB 
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